home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 9 / Dark_Star_09_1996_-_de_Side_A.d64 / >> time lag!! << (.txt) next >
Commodore BASIC  |  2023-02-26  |  597b  |  19 lines
  1. 10 print"[147]":poke53280,.
  2. 15 a=2093:forz=1to97 step5  :printtab(32)a-z:
  3. 16 fory=1to30:print"[145][145][145][145][145][145][145]":nexty,z
  4. 20 poke 13*4096+33,0
  5. 30 c$="[159][156][158][129][149][150][151][152][153][154][155][154][144]":b$="[190][187][188][172][190][215][209][187][188][172][190][187][188][172][190][187]":
  6. 40 for i=1 to 17:forx=1toi-3
  7. 50 print mid$(c$,i,1);:print mid$(b$,x,1)
  8. 60 print "";
  9. 70 for j=0toi+1:print:next
  10. 80 printspc(i*1)"      [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     ";
  11. 90 print"[145][145][145][145][145][145][145][145][187] time lag [188]"
  12. 110 :print"":nextx,i
  13. 111 fori=0to24:fort=15to0:poke54296,t:poke54296,1:nextt:poke54276,129
  14. 112 forc=17to0step17:poke54296,c:poke54296,0:nextc,i
  15. 120 print"[156][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]nach einem"
  16. 130 printtab(26)"[157][157][157][157][157][157][157][157][157][157]seltsamen    "
  17. 140 printtab(26)"[157][157][157][157][157][157][157][157][157][157]manuscript";
  18. 150 ifp=0thenp=1:load"das*",8,1:run
  19.